library(dplyr)
library(sf)
library(terra)
library(raster)
library(DT)
library(ggplot2)
library(plotly)
library(leaflet)
casos <-
st_read(
"/vsicurl/https://marcelocubero.github.io/capas_proyecto/casos.geojson",
quiet = TRUE
)
casos <-
casos %>%
st_transform(4326)
fallecidos <- rast("/vsicurl/https://marcelocubero.github.io/capas_proyecto/fallecidos.tif")
fallecidos_rl <- raster::raster(fallecidos)
leaflet() %>%
addTiles() %>%
addRasterImage(
fallecidos_rl,
opacity = 0.6
) %>%
addPolygons(
data = casos,
color = "black",
fillColor = "transparent",
stroke = TRUE,
weight = 1.0,
)